home *** CD-ROM | disk | FTP | other *** search
/ Old Testament Foundatiosn with Philip Yancey / Old Testament Foundatiosn with Philip Yancey - Disc 2.iso / pc / data / book111.dir / 00034.ls < prev    next >
Encoding:
Text File  |  1996-09-09  |  740 b   |  29 lines

  1. on pressBookButton
  2.   set spriteNum to the clickOn
  3.   set upCast to the castNum of sprite spriteNum
  4.   set downCast to the number of cast (the name of cast upCast & ".down")
  5.   puppetSprite(spriteNum, 1)
  6.   puppetSound("MouseDown.aif")
  7.   updateStage()
  8.   repeat while the mouseDown
  9.     if rollOver(spriteNum) then
  10.       set the castNum of sprite spriteNum to downCast
  11.     else
  12.       set the castNum of sprite spriteNum to upCast
  13.     end if
  14.     updateStage()
  15.   end repeat
  16.   if rollOver(spriteNum) then
  17.     startTimer()
  18.     repeat while the timer < 15
  19.       set the castNum of sprite spriteNum to downCast
  20.       updateStage()
  21.     end repeat
  22.     puppetSprite(spriteNum, 0)
  23.     set RollOn to 1
  24.   else
  25.     set RollOn to 0
  26.   end if
  27.   return RollOn
  28. end
  29.